home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 41
/
Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso
/
Aminet
/
gfx
/
edit
/
AmiCAD_2.07.lha
/
AmiCAD
/
ARexx
/
Calc.AmiCAD
< prev
next >
Wrap
Text File
|
2000-11-12
|
1KB
|
30 lines
/* calculatrice en virgule flottante */
/* Version 1.00: Chez Corbin, 7 février 1999, version 1.00 */
/* Version 1.01: 4 Novembre 2000, localisation anglais/français */
/* $VER: Calc.AmiCAD 1.01 (R.Florac, 4/11/00) */
options results
'LANGUAGE'
if result="français.language" then fr=1
else fr=0
if ~show('L','rexxmathlib.library') then
call addlib('rexxmathlib.library',0,-30)
cr='0a'x
if fr=1 then do
p='"Effectuez la saisie du'cr'calcul à effectuer.'cr'Opérateurs : * / + - // ** %'cr'Fonctions : abs acos acosh asin asinh'cr'atan atanh ceil cos cosh cot cotan'cr'csc exp fabs fact floor int'cr'ln log10 nint pow(x,y) sec'cr'sin sinh sqrt tan tanh"'
end
else do
p='"Enter the expression'cr'of the calculation.'cr'Operators : * / + - // ** %'cr'Functions : abs acos acosh asin asinh'cr'atan atanh ceil cos cosh cot cotan'cr'csc exp fabs fact floor int'cr'ln log10 nint pow(x,y) sec'cr'sin sinh sqrt tan tanh"'
end
'ASKTEXT('p',"")'
calcul=result
if calcul="" then exit
resultat = calc.rexx(calcul)
if fr=1 then 'REQUEST("'calcul' = 'resultat||cr'Voulez-vous écrire'cr'ce résultat ?")'
else 'REQUEST("'calcul' = 'resultat||cr'Do-you want to write'cr'this result ?")'
if result="1" then 'WRITE("'resultat'",0,0)'